object FrmPrint: TFrmPrint Left = 470 Top = 247 HelpContext = 11 BorderStyle = bsDialog Caption = 'Print Task List' ClientHeight = 343 ClientWidth = 529 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -5 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = True OnCreate = FormCreate OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 16 Top = 16 Width = 197 Height = 281 BevelOuter = bvLowered Color = clWhite TabOrder = 4 object PntBxPrintPreview: TPaintBox Left = 1 Top = 1 Width = 195 Height = 279 Align = alClient Color = clWhite ParentColor = False OnPaint = PntBxPrintPreviewPaint end end object BtBtnPrint: TBitBtn Left = 16 Top = 308 Width = 89 Height = 25 Caption = '&Print...' TabOrder = 1 OnClick = BtBtnPrintClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000 000D006666666666660006666666666666600600000000000060066666666666 96600066666666669600D00000000000000DDD0777777777770DD0077CCC7777 70DDD0777777CCC770DDD0777777777770DDD077CCC77777000DD077777CCC77 0EE0D007777777770EE0DD00000777770E0DDDDDDDD0000000DD} end object BtBtnCancel: TBitBtn Left = 424 Top = 308 Width = 89 Height = 25 TabOrder = 3 Kind = bkCancel end object BitBtn1: TBitBtn Left = 124 Top = 308 Width = 89 Height = 25 TabOrder = 2 Kind = bkHelp end object PCPrintOptions: TPageControl Left = 224 Top = 8 Width = 289 Height = 289 ActivePage = TSGeneral TabIndex = 0 TabOrder = 0 object TSGeneral: TTabSheet Caption = 'General' object ChkBxOnlyPrintComplete: TCheckBox Left = 16 Top = 32 Width = 153 Height = 17 Caption = 'Only print incomplete tasks.' TabOrder = 0 OnClick = ChkBxOnlyPrintCompleteClick end object ChkBxPrintTaskStatus: TCheckBox Left = 16 Top = 64 Width = 153 Height = 17 Caption = 'Strike-out completed tasks.' TabOrder = 1 OnClick = ChkBxPrintTaskStatusClick end object ChkBxPrintDate: TCheckBox Left = 16 Top = 96 Width = 145 Height = 17 Caption = 'Print date and time.' TabOrder = 2 Visible = False OnClick = ChkBxPrintDateClick end object CheckBox4: TCheckBox Left = 16 Top = 128 Width = 121 Height = 17 Caption = 'Size task list to page.' TabOrder = 3 Visible = False OnClick = CheckBox4Click end end object TSFontandSize: TTabSheet Caption = 'Font && Size' object Label1: TLabel Left = 16 Top = 16 Width = 55 Height = 13 Caption = 'Font Name:' end object Label2: TLabel Left = 200 Top = 16 Width = 47 Height = 13 Caption = 'Font Size:' end object Label3: TLabel Left = 40 Top = 224 Width = 215 Height = 13 Caption = '(Disable if opening this dialog box is too slow.)' end object lbxFontName: TListBox Left = 16 Top = 32 Width = 169 Height = 97 ItemHeight = 13 TabOrder = 0 OnClick = lbxFontNameClick OnDrawItem = lbxFontNameDrawItem OnMeasureItem = lbxFontNameMeasureItem end object cbxFontSize: TComboBox Left = 200 Top = 32 Width = 65 Height = 21 ItemHeight = 13 MaxLength = 2 TabOrder = 1 OnChange = cbxFontSizeChange Items.Strings = ( '8' '9' '10' '11' '12' '14' '16' '18' '20' '22' '24' '26' '28' '36' '48' '72') end object cbxDrawAllFonts: TCheckBox Left = 16 Top = 208 Width = 97 Height = 17 Caption = 'Draw all fonts.' TabOrder = 2 OnClick = cbxDrawAllFontsClick end object pnlFontPreview: TPanel Left = 16 Top = 144 Width = 249 Height = 41 BevelOuter = bvLowered Caption = 'ABC def 123' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end end object TSMargins: TTabSheet Caption = 'Margins' object Label4: TLabel Left = 16 Top = 44 Width = 21 Height = 13 Caption = 'Left:' end object Label5: TLabel Left = 16 Top = 76 Width = 28 Height = 13 Caption = 'Right:' Visible = False end object Label6: TLabel Left = 16 Top = 108 Width = 22 Height = 13 Caption = 'Top:' end object Label7: TLabel Left = 16 Top = 140 Width = 36 Height = 13 Caption = 'Bottom:' end object Label8: TLabel Left = 16 Top = 16 Width = 65 Height = 13 Caption = 'Margins (mm):' end object pnlMarginPagePreview: TPanel Left = 168 Top = 16 Width = 98 Height = 140 BevelOuter = bvLowered Color = clWhite TabOrder = 4 object shpMarginPviewExampleText: TShape Left = 16 Top = 16 Width = 65 Height = 113 Brush.Style = bsClear Pen.Color = clGray Pen.Style = psDot end end object edtLeftMarginVal: TEdit Left = 56 Top = 40 Width = 33 Height = 21 MaxLength = 3 TabOrder = 0 Text = '0' OnChange = edtLeftMarginValChange end object udLeftMarg: TUpDown Left = 89 Top = 40 Width = 15 Height = 21 Associate = edtLeftMarginVal Min = 0 Position = 0 TabOrder = 5 Wrap = False end object edtRightMarginVal: TEdit Left = 56 Top = 72 Width = 33 Height = 21 MaxLength = 3 TabOrder = 1 Text = '0' Visible = False OnChange = edtRightMarginValChange end object edtTopMarginVal: TEdit Left = 56 Top = 104 Width = 33 Height = 21 MaxLength = 3 TabOrder = 2 Text = '0' OnChange = edtTopMarginValChange end object edtBottomMarginVal: TEdit Left = 56 Top = 136 Width = 33 Height = 21 MaxLength = 3 TabOrder = 3 Text = '0' OnChange = edtBottomMarginValChange end object udRightMarg: TUpDown Left = 89 Top = 72 Width = 15 Height = 21 Associate = edtRightMarginVal Min = 0 Position = 0 TabOrder = 6 Visible = False Wrap = False end object udTopMarg: TUpDown Left = 89 Top = 104 Width = 15 Height = 21 Associate = edtTopMarginVal Min = 0 Position = 0 TabOrder = 7 Wrap = False end object udBottomMarg: TUpDown Left = 89 Top = 136 Width = 15 Height = 21 Associate = edtBottomMarginVal Min = 0 Position = 0 TabOrder = 8 Wrap = False end end end object PrintDialog1: TPrintDialog Left = 360 Top = 304 end end